home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
WINMX Assorted Textfiles
/
Ebooks.tar
/
Text - Tech - Ebooks - How To Convert from LIT to TXT (TXT, SRC, HTM).zip
/
Convert From Lit.txt
next >
Wrap
Text File
|
2001-02-06
|
2KB
|
68 lines
Ok now the correct instructions. Thanks to Chase for pointing out my
mistake along with the correct link.
Download and install wintask from http://www.wintask.com/
Open the lit file you wish to convert and make sure you're on the
first page of TEXT not the chapter listing. Take note of that number,
go to the last page you wish to convert and subtract the page number
of the first page of text from the last page you wish to convert. Now
go back to the first page of text.
Now open up wordpad. I use the name convert.doc on my desktop.
Now open the SRC file I've attached in WinTask and click on Play, then
a box should come up, click run, then click Ok. Now type in the
number of pages to convert (the number you calculated earlier). It
should handle everything.
I put a dialog box with some info in it, if you decide to modify and
redistribute it change it to "Convert by Tecnodude version
" add to the version number " Modifyed by: " your name or handle
and the current date. This way we can keep all the revisions separate.
Thanks
Tecnodude
--------------------
CallDialog Dialog
CallDialog PageD
BEGINDIALOG Dialog 337, 260, 350, 110
CAPTION "Convert by Tecnodude"
TEXT "Convert Version .03 by Tecnodude 1-19-2001", 59, 15
DEFPUSHBUTTON "&OK", btnOK, 125, 41, 75, 23
ENDDIALOG
BEGINDIALOG PageD 337, 260, 350, 138
CAPTION "Number of pages to convert"
TEXT "Please enter the number of pages to convert:", 55, 19
EDITTEXT pages$, 128, 42, 78, 20
DEFPUSHBUTTON "&OK", btnOK, 130, 78, 75, 23
ENDDIALOG
pages=val(pages$)
repeat
UseWindow("MSREADER.EXE|EBUI_CHILD|Microsoft Reader|1",1)
ClickMouse(Left,Down,54,62)
MoveMouse(84,654)
ClickMouse(Left,Up,84,654)
UseWindow("MSREADER.EXE|EBUI_CHILD|Microsoft Reader|1",1)
ClickMouse(Left,Down,31,131)
ClickMouse(Left,Up,31,131)
UseWindow("MSREADER.EXE|EBUI_CHILD|Microsoft Reader|1",1)
SendKeys("<Alt>")
UseWindow("WORDPAD.EXE|RichEdit20W|New WordPad Document - WordPad|1",1)
SendKeys("<Ctrl v>")
UseWindow("MSREADER.EXE|EBUI_CHILD|Microsoft Reader|1",1)
SendKeys("<pagedown>")
pages=pages-1
until pages<1
PS: <Dunamai> Von_Cha, one note. Make sure the Reader Font Size is at its default (middle setting)